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Kk 10 
LIBSSYS_GETMSG 16-Sep-1984 01:02: AX-11 Bliss-32 V4.0-74 
12 ~Sep- 1982 93:98:88 LIBRTL.SR RCIL IBGE TMSG.852;1 
MODULE LIBSSYS_GETMSG ( 
IDENT = '1-009" ! File: LIBGETMSG.B32 EDIT RKR1009 
5 d= 


BEGIN 


. 

RRR AAAAAAAAAAAAAAAERAAAAEAEAAEAEAAAA TEETER ARERR RAAAAEAARERERAAREEEEEE 
'‘@ 

. 


: ererererence and are promoted to by-value for presentation to 


i] 

' 

{ 

1 

1 

1 

i 

i 

i] 

i 

: ENVIRONMENT: VAX=-11 User Mode 
: AUTHOR: R. Reichert, CREATION DATE: 20-SEPT-1979 
MODIFIED BY: 
1 

1 

i] 

i] 

{ 

1 

4 

' 

' 


i 1-001 - Original. RKR 20-SEPT-1979 


if OOS = Change name to LIBSSYS_GETMSG. RKR 15-OCT-79 


a s bogic, for status returned. Improve comments. 
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® 
1 39 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
1 1 's DIGITAL EQUIPMENT CORPORATION, ” MAYNARD. MASSACHUSETTS. * 
: \¢ it ALL RIGHTS. RESERVED. : 
1 14 ie THIS verre IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
1 15 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
1 1 '® INCLUSION OF a ® meove COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
1 01 'e COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
1 Bots '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
1 dh ? TRANSFERRED. * 
. ® 
9021 '® jin INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
00 ¢ '® SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$8 Z . CORPORAT ION. . 
0025 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4 $ » SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® 
i 
3 inneneneeeerereennenenecersenerenereneeessencerensesetennnneeneeeesstenensee 
3H '++ 
+4 ? ! FACILITY: General Library Support 
0035 i ABSTRACT: 
0037 : Calls SGETMSG with caller's input string, poeyl tant string 
4 ! is returned using the semantics of the caller's stri ng. 
Z 039 !' Parameters MSGID and FLAGS are presented to this routine 
4 
4 
fe 
4 
4 
4 
4 
4 
4 
: i 1-004 - hed ome 8 promote by-reference parameter to by-value. 
; 5 i q- “$93 - oes STR$ codes to LIB$ codes. RKR 22-JAN-80 
5 ! 1-006 = Enhance to recognize additional classes of string descriptors 
5 005 : on output by always getting data into internal buffer and 
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1-007 - 
1-008 - 


1-009 - 


-$ep-1984 01:02: Ax-11 BLi 
ifdeort9ge 01:08:52 yAtett OL 
tieshuAc rie spe DXD ., to deliver to caller's buffer 

1eE E .SDESC RS p $ used to compu e the ayneee of bytes 
actually copie copy 0 operation ¢ let 
Change to use o alsetet" "DXDX instead of STR COPY sox. This 
avoids having to change STRS$ statuses to LIBS statuses and 
eliminates, need for a handler. 


i spet ial~case code to arose s ee cm Fott=i8 that 
fixed string descr sors, = T-1981. 

Redir rok ae $s to LABsA ALYZE_SDESC 

Lge E 78p55°- R Use (iesscopy™ R _Dx6 to do copying. 

Return oe a LT eet fron, SGETMSG as return codes from 

this routine. RKR 11-AUG-1 
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FREE 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
} 
: REQUIRE 'RTLIN:RTLPSECT'; 
! LIBRARY ‘RTLSTARLE’; 

1! 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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SWITCHES: 


SWITCHES ADDRESSING MODE 


10 
16-Se 
14-Se 


paloee 42:98:58 ECTant snes lace tAsc-682; 1 


(EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


t LINKAGES: 
REQUIRE "RTILIN: STRLNK’; 
i TABLE OF CONTENTS: 


FORWARD ROUTINE 


LIBSSYS_GETMSG; 


INCLUDE FILES: 


MACROS: 
NONE 
EQUATED SYMBOLS: 


LITERAL 


LOCAL_BUF _SIZE = 256 ; 
PSECTS: 


DECLARE_PSECTS (LIB); ! 


OWN STORAGE : 
NONE 
EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
LIBSANALYZE_SDESC_R2 : LIBSANALYZE_SDESC_JSB_LINK, 


LIBSSCOPY_R_DX6 : STRING_JSB; 


' Convert date and time 


! Macros for defining psects 
! System symbols and macros 


Declare psects for LIBS facility 


! Copy string 


Extract Length 
and address of 
ist data byte 
from descriptor 


Page 


3 


(2) 


18 
-( 


N 10 
VerSep=19ee 12:98:55 EMTenr °SneSi sce tase 682; 1 ae 
: 
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: } : rt } GLOBAL ROUTINE LIBSSYS_GETMSG ( Get system message 

; 1 1 

3 } Hl : } MSGID, ! identification of message to be retrieved 
: 135 411 1 MSGLEN, ! address of a word to receive length of string 
3 : : ; ! returned (optional) 

> 4 1% | BUFADR, ' address of buffer descriptor of buffer to 
3 123 ' : ! receive string 

; 13) 17 ! FLAGS, ! flag bits for message content 

: 128 i 1 OUTADR ! addr of a 4-byte array to receive msg string 
ag Sob 

: 146 ; i 1o4 

: + 4 ? : FUNCTIONAL DESCRIPTION: 

> 149 $1} Calls SGETMSG with caller's input string, resultant string 
; 150 04 § 1 ! is returned using the semantics of the caller's string. 

3; «6151 1 ! Parameters MSGID and FLAGS are presented to this routine 

; 136 ta a ar. tarerence and are promoted to by-value for presentation to 

3 15 9 1 ! SGETMSG 

1 BRT 

; 136 4 ; | FORMAL PARAMETERS: 

; 158 434 1! MSGID.rl.r Address of 

; 123 ri 5 : identification of message to be retrieved 

; 161 1! MSGLEN.ww.r address of a word to receive length of string 
3 16¢ 4 3 : } returned 

3 164 40 1! BUFADR.wt.dx address of buffer descriptor of buffer to 

3 19? ree ' receive string 

: 167 rk 1 i FLAGS.rl.r Address of 

: 168 444 1! flag bits for message content 

3 19? 445 1! (Optional parameter 

3 170 rr. ! (macro default = 15) 

; 17 bees 1: Bit Value Meaning 

: 175 451 1! 0 1 Include text 

3 176 $26 1! 0 Do not include tesxt 

or 23 6S 1 1 Include identifier 

; 178 54 1! 0 Do not include identifier 

3; 179 55 1! 2 1 Include severity 

: 180 £28 1! 0 Do not include severity 

3; «6181 457 1! 3 1 Include component 

3 136 28 : 0 Do not include component 

; 1B ret] : OUTADR.wa.ra eddress of a 4-byte array to receive the msg 
3 strin 

: 186 462 1! (Optional parameter) 


11 
LlBssys_ceINsG 1B-Sep-1984 01:02:52 YAKGI1 BLisg-32 v4.0-742, Page 


: 1B tee | i Byte Content 

$ ' s ontents 

Py 189 ree } = det esa anm eon 

: 191 4 1 0 Reserved 

; 136 4 8 1; 1 Count of FAO arguments 

; 19 4 1! § User value 

3 138 beae ! } Reserved 

; 196 0476 | IMPLICIT INPUTS: 

i Bey] we 

: 200 0476 1 | IMPLICIT OUTPUTS: 

: 201 0477 1! 

: $08 oc79 | | “ae 

; 304 0480 | ' COMPLETION CODES: 

: 206 bees 1! SS$_NORMA! Procedure successfully completed 

: 207 0483 1 ! From LIBSSCOPY_R_DX6 

; 208 0484 1! LIB$_STRTRO Success, but source string truncated 

> 209 0485 1! LIBS_INSVIRMEM Insufficient virtual memory 

3 $i9 0486 1! LIBS_INVSTRDES Invalid string descriptor 

: 211 0487 1! LIBS_INVARG Invalid argument ( usually unsupported class of 
3 si¢ 0488 1! descriptor 

s 2 0489 1 ! From SGETMSG 

; 214 0490 1! SS$_BUFFEROVF Successfully completed but string returned 
, 2 0491 1! overflowed the buffer provided and has been 
: 216 0492 1! truncated 

3s ev 0495 1! SSS_MSGNOTFND Sucessfully completed, but message code does not 
; 218 0494 1! have an associated message in file. 

- ee ae 

> 221 0497 1 | SIDE EFFECTS: 

3 $s6 0498 1! 

$ €e 0499 1! 

: 224 0500 1 !-- 

BBL econ 

; 327 $808 BUILTIN 

3 8 0504 ACTUALCOUNT 

: 229 0505 NULLPARAMETER 

i 930 0309 ACTUALPARAMETER ; 

; 23 508 CAL 

3 35 b24p COPY_STATUS, ! status from co 4 spores ion 

3; 234 510 R US, ' status from $F MSG call 

3 235 511 LOCAL_BUFF : VECTOR FOC, Py .55cE BYTE . ' Local buffer 
; $$ 218 BUFFER_DESC : BLOCK (8, BYTE); ! desc for local buffer 
538 214 p 

: 239 515 MSGLEN : REF VECTOR [,WORD) , 

: 240 218 BUFADR : REF BLOCKC,BYTE) ; 

: 241 51 

: 24 Oa18 

3; 246 051 '¢ 


cr 
= 


11 
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44 ! Construct a static descriptor to receive the message text from 
rv ' VAX/VMS 
23 BUFFER_DESC CDSCS$W_LENGTH] = LOCAL_BUF SIZE; 
48 BUF FER_DESC ett AL = DSCSK_BTYPE_T; 
49 BUFFER_DESC LDSCSB_CLASSJ = DSCSK_CLASS_S; 
3} BUFFER_DESC CDSCSA_POINTER] = LOCAL_BUFF; 
14 

2g ' Call SGETMSG with the appropriate combination of caller's 
33 } parameters, default parameters and local variables. 
6 
57 P STR_STATUS = SGETMSG ( 
58 P MSGID = .ACTUALPARAMETER(1), 
59 Pp MSGLEN = DESC, 
60 p BUFADR = BUFFER_DESC, 
61 P FLAGS = (IF NULCPARAMETER(4) 
6¢ P THEN 15 
6 P ELSE .ACTUALPARAMETER(4) ) , 

‘ OUTADR = (IF NULLPARAMETER(5) 


HEN 
ELSE ACTUALPARAMETER(5)) ) ; 


1+ 
! Copy internal buffer to caller's buffer, letting LIBSSCOPY_R_DXx6 
worry about its semantics. 


COPY_STATUS = LIBSSCOPY_R_DX6 (.BUFFER_D 
-BUFFER-D 


'¢ 

! If caller supplied optional bengen parameter, update it. 

' To do this accurately, we need to inepect the resulting descriptor 
' as it appears after the © % Get LIBSANALYZE_SDESC_R2 to do it. 

! No need to check LIBSANALYZE_SDESC_R2 status. "If RESULT_ADDR descr 
: was bad, LIBSSCOPY_DXDx6 would havé told us about it. 


i ae NULLPARAMETER(2)) 
BEGIN 
A 
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PEAR XR_D SAA B Be BS BBE NANA ANI NIIP PNOPNNPOND 


RESULT_LEN ! No. of bytes delivered to caller 
RESULT~ADDRESS; pegress of ist data byte of callers 


! buffer 
IF .BUFADR CDSCSB_CLASS] GTRU DSCSK_CLASS_D 
THEN !"Use generalized length extract 


BEGIN 
LIBSANALYZE_SDESC_R2 ( .BUFADR ; 
RESULT_LEN, RESULT_ADDRESS ); 
END 
ELSE ! Fetch Length directly 
RESULT_LEN = .BUFADR COSCSW_LENGTH) ; 
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; 301 77 ; 
; 0¢ H NSGLEN CO] = MIN (.BUFFER_DESC COSCSW_LENGTH], .RESULT_LEN) ; : 
: 304 0 1+ 3 
; 305 1 i At this point we have 2 statuses that we could return to caller. : 
; 88 § ; | peseratan which one is the ‘‘most meaningful”. ° 
: 308 0584 '+ : 
; 309 b2 5 i If original SGETMSG call failed, tell him about that ‘ 
3 19 5 $ ! _else give him the copy status. . 
; \§ 38s if STR =STATUS al SS$_NORMAL ; 
.. 589 Ret n_SGETMSG status ‘ 
$ 14 590 RETURN (. "STR. * STATUS) ° 
$ 15 0591 ‘ 
; 316 8236 ELSE turn co y status ; 
: i S292 RETURN (. ‘Ory _STATU 3 e 
; 319 0595 1 END; ! end of LIBSSYS_GETMSG ; 
‘TITLE LIBSSYS_GETHSG : 
-IDENT \1-009\ , 
~EXTRN atte ae -SDESC_R2 ‘ 
SEXTRN LIBSSCOPY R-DX6 ; 
-EXTRN SYS$G MSC ; 
-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 : 
01FC 00000 -ENTRY =260 (30) GETMSG, Save R2,R3,R4,R5,R6,R7,R8 ; 0406 : 
5E FEFC E 9€ BOn8s MOVAB SP é e 
010E0100 F Dd 0000 PUSHL 1769497 : 0523 : 
04 AE 08 AE a5 000D MOVAB LOCAL L BUFF. BUFFER_DESC+4 ; 0526 . 
05 6g G 9 CMPB : 0542 : 
05 1F 0001 sissu is ; : 
14 AC 05 0001 TSTL tas é e 
4 12 QOO1A BNEQ $ 3 : 
E 04 OO1C 1$: CLRL = = (SP) ; : 
03 11 ot BRB 3$ 3 : 
14 AC po q: PUSHL 20( AP) ; ° 
04 gf 1 $: CMPB (AP), #4 3 ° 
1F 6 BLSSU  4$ ; : 
10 Ac 03 8 TSTL 16 (AP) F e 
4 1 8 NEQ 5$ 3 ° 
F BD 0000 48: PUSHL #15 ; : 
5 Y F RB 6$ 3 : 
10 BC pp 1 5$: PUSHL @16(AP) 3 < 

8 AE F 6$: SH BUF FER_DESC 3 

C AE OF 7 PUSHAB BUFFER_DESC 3 

4 f DD A PUSHL @4(AP) : 

000000006 9 F D CALLS #5, SYSSGETMSG 3 

0D 44 MOViL RO, STR STATUS : 

0c AC D 47 MOVL BUFADR. R7 > 0551 
¢ 57 D 4B MOVL R7, Re 3; 0549 
04 AE p af MOVL § BUFFER_DESC+4, R1 ; 
0 6E 3C 0005 MOVZWL BUFFERTDESC, RO : 
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3 AX-11 BLi ieee -32 V4.0-74 
LIBRTL.SRCILIBGETMSG.852;1 


Roe copy. R 


ri Shae 2 
10$ 
(AP) 


0$ 
(R7), #2 


R7, RO 
BSANALYZE 


tap aMtauel L 


BUFFER DESC, 
RO, RESULT_L 


RE SULT LEN. 
amSGL 
Sif ar Arue. 


STR_STATUS, 


COPY_STATUS, 


-SDESC_R2 
N 
“Ab 


RO 

#1 

RO 
RO 


3; Routine Size: 152 bytes, Routine Base: _LIBSCODE + 0000 

; 320 8396 1 

s 6Uel 597 1 END ! end of module LIBSSYS_GETMSG 

3 356 0598 #1 

; 3e 0599 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes Attributes 

: _LIBSCODE 152 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 

Biv oe ee Symbols -------- Pages Processing 
5 File Total Loaded Percent Mapped me 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 1 0 581 00:00.8 
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1-009 


ig 
classed Time: 


14-Sep-19 CLIBRTL. SREILIBGETHSG.B 2;1 


COMMAND QUALIFIERS 
BO SECRET FOL 5 SNS TEM OPT SALES ANOTOACE AL SOME, SES k, LOSE HOG /UR MER IS 54, JOEE TREE MSRC$:L IBGE TMSG/UPDATE=(ENH$:L IBGE TMSG 


152 code + 0 data bytes 


728. 
Lines/CPU Min: 7186 
Lexenes/CPU-Rin; 314 


Memor ry ut sed: 
Compilation Complete 


2 pages 
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